﻿Imports CapaLogica.CL.Usuario
Imports CapaLogica.CL.UtilidadesGenerales


Public Class Login1
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            If Session("id") <> Nothing Then
                Session.RemoveAll()
            End If
    End Sub

    Protected Sub btn_ingresar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_ingresar.Click

        Modulo.setearCadenaDeconexion(My.Settings.conexion)
        If GestorUsuario.iniciarSesion(txtNombre.Text, txtContrasenia.Text) Then
            Dim datosUsuario As Dictionary(Of String, String) = GestorUsuario.consultar(CapaLogica.CL.Usuario.Session.Id)

            Session.Add("id", datosUsuario("id"))
            Session.Add("nombre", datosUsuario("nombre"))
            Session.Add("ap1", datosUsuario("ap1"))
            Session.Add("ap2", datosUsuario("ap2"))
            Session.Add("rol", datosUsuario("Rol"))
            Session.Add("correo", datosUsuario("correo"))

        Else
            lblResultado.Text = "El usuario o la contraseña son inválidos."
        End If

        If CType(Session("rol"), Integer) = 4 Then
            lblResultado.Text = "El usuario no tiene permisos de acceso."
        Else
            Response.Redirect("Inicio.aspx")
        End If
    End Sub
End Class